home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / exectz.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  913b  |  34 lines
  1. /*****************************************************************************
  2.  
  3.     ExeCtZ()
  4.  
  5.     This function executes a control-Z command.
  6.  
  7.     ^Z    <CTRL/Z> (caret/Z) is equivalent to the total space
  8.         occupied by text in the Q-registers (including the
  9.         command line currently being executed).
  10.  
  11. *****************************************************************************/
  12.  
  13. #include "zport.h"        /* define portability identifiers */
  14. #include "tecoc.h"        /* define general identifiers */
  15. #include "defext.h"        /* define external global variables */
  16.  
  17. DEFAULT ExeCtZ()        /* execute a ^Z (control-Z) command */
  18. {
  19.     LONG    TmpLng;
  20.     WORD    TmpWrd;
  21.  
  22.     DBGFEN(1,"ExeCtZ",NULL);
  23.     TmpLng = (CStEnd - CStBeg) + 1;
  24.     for (TmpWrd = 0; TmpWrd < 36; ++TmpWrd) {
  25.         TmpLng += QRgstr[TmpWrd].End_P1 - QRgstr[TmpWrd].Start;
  26.     }
  27.  
  28. #if DEBUGGING
  29.     sprintf(DbgSBf,"PushEx(%ld)", TmpLng);
  30.     DbgFEx(1,DbgFNm,DbgSBf);
  31. #endif
  32.     return PushEx(TmpLng,OPERAND);
  33. }
  34.